home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Run Magazine ReRun 1986 September & October
/
rerun-1986-09-10.d64
/
random scroller
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
450b
|
17 lines
1 rem random scroller
3 fori=0to26
4 print"[164][175][162][198][195][196][195][198][185][175][164][175][185][198][195][196][195][198][162][175][164][175][162][198][195][196][195][198][162][185][175][164][185][195][196][195][185]";
5 next
10 t=0:b=25:l=0:r=39
20 n=rnd(ti):ifn<.5thengosub200
30 t=1024+t*40:t=t/256:poke835,t:poke899,t:t=(t-int(t))*256:poke831,t:poke895,t
40 b=1024+b*40:b=(b/256-int(b/256))*256:poke846,b:poke905,b
60 poke829,l:poke866,l:poke921,l
70 poke857,r:poke893,r:poke933,r
80 gosub100
90 goto10
100 fori=0tom:sys828:next
110 fori=0tom:sys892:next:return
200 t=int(rnd(ti)*12):b=int(rnd(ti)*12+12):m=int(rnd(ti)*100)+1
210 l=int(rnd(ti)*19):r=int(rnd(ti)*19+20):return